The Virtual Portfolio - N…a Showcase - Book 5 1995/VIRTUAL [md5 EC7DB5CC033E38E511F666CE80BCE509].ISO/mac/Main/VP.mac/00001.ls

Text File | 1995-07-18 | 4.2 KB | 237 lines

on startMovie
  global TheSound, soundUp, findMe, n, gMem, upTon
  set n to 8
  set findMe to the pathName
  set the colorDepth to 8
  set soundUp to 7
  set the soundLevel to soundUp
  set upTon to 0
  if the freeBytes > (4 * 1024) then
    set gMem to 1
  else
    set gMem to 0
  end if
  if the quickTimePresent = 1 then
    nothing()
  else
    alert("You do not currently have QuickTime loaded. Several areas of The Virtual Portfolio will not play properly without it. The Mac version is in the QuickTime folder on the CD-ROM. QuickTime for Windows is in the Windows folder.")
    quit()
  end if
end

on infoBox
  alert("The Virtual Portfolio‚Ñ¢ is published by American Showcase, Inc. 212-673-6600.  It was created and produced by One World Interactives, Inc.")
end

on checkKey
  if the key = RETURN then
    play done
  else
    nothing()
  end if
end

on findArtist place
  global TheSound, R
  unLoadCast()
  set R to random(12)
  set TheSound to the name of cast (399 + R)
  puppetSound(0)
  puppetSound(TheSound)
  updateStage()
  play movie "virtual portfolio:stills:" & place
end

on findDemo place
  global TheSound, R
  unLoadCast()
  set R to random(12)
  set TheSound to the name of cast (399 + R)
  puppetSound(0)
  puppetSound(TheSound)
  updateStage()
  play movie "virtual portfolio:demos:" & place
end

on findInter place
  global TheSound, R
  unLoadCast()
  set R to random(12)
  set TheSound to the name of cast (399 + R)
  puppetSound(0)
  puppetSound(TheSound)
  updateStage()
  play movie "virtual portfolio:inter:" & place
end

on findAnim place
  global TheSound, R
  unLoadCast()
  set R to random(12)
  set TheSound to the name of cast (399 + R)
  puppetSound(0)
  puppetSound(TheSound)
  updateStage()
  play movie "virtual portfolio:anim:" & place
end

on findTool place
  global TheSound, R
  unLoadCast()
  set R to random(12)
  set TheSound to the name of cast (399 + R)
  puppetSound(0)
  puppetSound(TheSound)
  updateStage()
  play movie "virtual portfolio:tools:" & place
end

on openUp place
  global TheSound, R
  unLoadCast()
  set R to random(12)
  set TheSound to the name of cast (399 + R)
  puppetSound(0)
  puppetSound(TheSound)
  updateStage()
  open("virtual portfolio:demos:" & place)
end

on setVol
  global soundUp, n, volName
  repeat with i = 1 to n
    set the checkMark of menuItem i of menu "Volume" to 0
  end repeat
  set the checkMark of menuItem (volName + 1) of menu "Volume" to 1
  set soundUp to volName
  set the soundLevel to soundUp
end

on volumeOff
  global volName
  set volName to 0
  setVol()
end

on volume1
  global volName
  set volName to 1
  setVol()
end

on volume2
  global volName
  set volName to 2
  setVol()
end

on volume3
  global volName
  set volName to 3
  setVol()
end

on volume4
  global volName
  set volName to 4
  setVol()
end

on volume5
  global volName
  set volName to 5
  setVol()
end

on volume6
  global volName
  set volName to 6
  setVol()
end

on volume7
  global volName
  set volName to 7
  setVol()
end

on firstIllus
  set the ink of sprite 19 to 0
  updateStage()
  set the ink of sprite 19 to 37
  updateStage()
  go("illus 1")
end

on lastIllus
  set the ink of sprite 17 to 0
  updateStage()
  set the ink of sprite 17 to 37
  updateStage()
  go("illus 8")
end

on prevFrame
  set the ink of sprite 17 to 0
  updateStage()
  set the ink of sprite 17 to 37
  updateStage()
  go(marker(-1))
end

on nextFrame
  set the ink of sprite 19 to 0
  updateStage()
  set the ink of sprite 19 to 37
  updateStage()
  go(marker(1))
end

on firstInter
  set the ink of sprite 19 to 0
  updateStage()
  set the ink of sprite 19 to 5
  updateStage()
  go("inter 1")
end

on lastInter
  set the ink of sprite 17 to 0
  updateStage()
  set the ink of sprite 17 to 5
  updateStage()
  go("inter 6")
end

on firstAnim
  set the ink of sprite 19 to 0
  updateStage()
  set the ink of sprite 19 to 5
  updateStage()
  go("anim 1")
end

on lastAnim
  set the ink of sprite 17 to 0
  updateStage()
  set the ink of sprite 17 to 5
  updateStage()
  go("anim 3")
end

on firstSpon
  set the ink of sprite 19 to 0
  updateStage()
  set the ink of sprite 19 to 5
  updateStage()
  go("sponsor intro")
end

on lastSpon
  set the ink of sprite 17 to 0
  updateStage()
  set the ink of sprite 17 to 5
  updateStage()
  go("sponsor 3")
end